home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 161 / 161.d81 / b.cash flower (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  9 lines
  1. 5 poke56,127:clr:print""
  2. 10 restore:reada:bo=peek(66)*256+peek(65)+3:dv=peek(186):ifdv<8thendv=8
  3. 20 ce=bo+3:bl=bo+6:co=bo+9:sw=bo+12:c2=bo+15:dy=bo+18:poke53265,11:sysbo
  4. 50 poke53265,27:sysce,15,"[195] [193] [211] [200]   [198] [204] [207] [215] [197] [210]":sysce,17,"[194]y [202]eff [202]ones
  5. 70 [158]ce,19,"(len) 1997 by mid$&asc (NULL)ublishing
  6. 80 sysce,20,"[212]his [208]rogram [201]sn't [208]ublic [196]omain
  7. 5000 [151]4096,0:[158]dy,"flower",dv
  8. 6000 [131]0
  9.